home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / ENUMRLAY.M < prev    next >
Encoding:
Modula Definition  |  1990-10-22  |  662 b   |  33 lines
  1. DEFINITION MODULE A;
  2.  
  3. TYPE Enum = (one, two, three);
  4.      UseEnum = RECORD e: Enum END;
  5. END A.
  6.  
  7. DEFINITION MODULE B;
  8.  
  9. FROM A IMPORT UseEnum;
  10.  
  11. TYPE Rec = RECORD u: UseEnum END;
  12.  
  13. (* hier wird der Enum-Typ nur anonym verwendet/exportiert *)
  14.  
  15. END B.
  16.  
  17. MODULE C;
  18.  
  19. FROM B IMPORT Rec; (* der Enum-Typ wird anonym eingetragen *)
  20. FROM A IMPORT Enum; (* ein Relay wird auf den vorher angelegten Enum erzeugt *)
  21.  
  22. CONST eins = one;  (* hier sind die Enum-Elems übers Relay sichtbar *)
  23.  
  24. MODULE LOCAL;
  25.  
  26.   IMPORT Enum; (* hier müssen die EnumElems über's Relay importiert werden *)
  27.  
  28.   CONST zwei = two; (* das muß klappen! *)
  29.  
  30. END LOCAL;
  31.  
  32. END C.
  33.